home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PWAIML10.ZIP / LASTCALL.PPS < prev    next >
Encoding:
Text File  |  1995-06-17  |  751 b   |  25 lines
  1. ;==========================================================================
  2. ; Lastcall.Im modifier v1.0
  3. ; Nemesis [PWA]
  4. ;
  5. ; written in about 2 minutes, so dont expect awe inspiring sensationalism
  6. ;==========================================================================
  7.  
  8. string config     ; config file
  9. string impath     ; path to lastcall.im
  10. string promptline ; line to display at end of ppe
  11.  
  12. getuser
  13. config = ppepath() + "lastcall.cfg"
  14. fopen 1,config,o_rw,s_dn
  15. fget 1,impath
  16. fget 1,promptline
  17. fclose 1
  18. fopen 1,impath+"lastcall.im",o_rw,s_dn
  19. fwrite 1,chr(len(u_name()))+u_name()+"      ",30
  20. fseek 1,31,seek_set
  21. fwrite 1,chr(len(u_city()))+u_city()+"       ",30
  22. fclose 1
  23. dispstr promptline
  24. log "Minutes Used: @OPTEXT@",FALSE
  25.